﻿Public Class Cliente

    'Tabla SQL
    Dim _CLI_Codigo, _CLI_Grupo, _CLI_RazonSocial, _CLI_RUC, _CLI_Linea, _CLI_DNI As String
    Dim _CLI_DireccionFiscal, _CLI_Vendedor, _CLI_NomComercial, _CLI_Telefono, _CLI_Marca As String
    Dim _CLI_Percepcion, _CLI_Latitud, _CLI_Longitud As String
    Dim _CLI_Distrito, _CLI_Cobrador, _CLI_Procedencia, _CLI_Clase As String
    Dim _CLI_Tipo, _CLI_Estado, _CLI_Categoria, _CLI_CondicionVenta, _CLI_Activo As String
    Dim _CLI_EmpRazon, _CLI_EmpTelefono, _CLI_EmpFax, _CLI_EmpEmail As String
    Dim _CLI_MDocVencidos, _CLI_MLetAceptar, _CLI_MLetProtestadas, _CLI_MSinLC, _CLI_MBloqManual, _CLI_MotivoBloqueo As String

    'XML SUNAT
    Dim _CLI_RucST, _CLI_RazonSocialST, _CLI_RucAntiguoST, _CLI_EstadoST, _CLI_PatronST, _CLI_AgenteRetencionST As String
    Dim _CLI_NomComercialST, _CLI_DireccionST, _CLI_SituacionST, _CLI_TelefonoST, _CLI_DependenciaST As String
    Dim _CLI_TipoST, _CLI_InicioActividadST, _CLI_ActividadEconomicaST, _CLI_DniST, _CLI_FechaNacimientoST As String

    'Contructor sin parametros
    Sub New()

    End Sub

    'Constructor con parametros SQL
    Sub New(cliCodigo As String, cliGrupo As String, cliRazon As String, cliRuc As String, cliLinea As String, cliDNI As String,
            cliDireccion As String, cliVendedor As String, cliNomComercial As String, cliTelefono As String, cliMarca As String,
            cliPercepcion As String, cliLatitud As String, cliLongitud As String, cliDistrito As String,
            cliCobrador As String, cliProcedencia As String, cliClase As String, cliTipo As String, cliEstado As String, cliCategoria As String,
            cliCondicionVenta As String, cliemprazon As String, cliemptel As String, cliempfax As String, cliempmail As String,
            climDocVenc As String, climLetAcep As String, climletProtes As String, climSinlc As String, climbloqman As String, climotbloq As String, cliActivo As String)
        Me._CLI_Codigo = cliCodigo
        Me._CLI_Grupo = cliGrupo
        Me._CLI_RazonSocial = cliRazon
        Me._CLI_RUC = cliRuc
        Me._CLI_Linea = cliLinea
        Me._CLI_DNI = cliDNI
        Me._CLI_DireccionFiscal = cliDireccion
        Me._CLI_Vendedor = cliVendedor
        Me._CLI_NomComercial = cliNomComercial
        Me._CLI_Telefono = cliTelefono
        Me._CLI_Marca = cliMarca
        Me._CLI_Percepcion = cliPercepcion
        Me._CLI_Latitud = cliLatitud
        Me._CLI_Longitud = cliLongitud
        Me._CLI_Distrito = cliDistrito
        Me._CLI_Cobrador = cliCobrador
        Me._CLI_Procedencia = cliProcedencia
        Me._CLI_Clase = cliClase
        Me._CLI_Tipo = cliTipo
        Me._CLI_Estado = cliEstado
        Me._CLI_Categoria = cliCategoria
        Me._CLI_CondicionVenta = cliCondicionVenta
        Me._CLI_EmpRazon = cliemprazon
        Me._CLI_EmpTelefono = cliemptel
        Me._CLI_EmpFax = cliempfax
        Me._CLI_EmpEmail = cliempmail
        Me._CLI_MDocVencidos = climDocVenc
        Me._CLI_MLetAceptar = climLetAcep
        Me._CLI_MLetProtestadas = climletProtes
        Me._CLI_MSinLC = climSinlc
        Me._CLI_MBloqManual = climbloqman
        Me._CLI_MotivoBloqueo = climotbloq
        Me._CLI_Activo = cliActivo
    End Sub

    'Constructor con parametros XML
    Sub New(cliRucST As String, cliRazonST As String, cliRucAntST As String, cliEstadoST As String, cliPatronST As String, cliAgeRetST As String,
            cliNomComerST As String, cliDireccST As String, cliSituacionST As String, cliTelefST As String, cliDependST As String,
            cliTipoST As String, cliIniActST As String, cliActEcoST As String, cliDNIST As String, cliFecNacST As String)
        Me._CLI_RucST = cliRucST
        Me._CLI_RazonSocialST = cliRazonST
        Me._CLI_RucAntiguoST = cliRucAntST
        Me._CLI_EstadoST = cliEstadoST
        Me._CLI_PatronST = cliPatronST
        Me._CLI_AgenteRetencionST = cliAgeRetST
        Me._CLI_NomComercialST = cliNomComerST
        Me._CLI_DireccionST = cliDireccST
        Me._CLI_SituacionST = cliSituacionST
        Me._CLI_TelefonoST = cliTelefST
        Me._CLI_DependenciaST = cliDependST
        Me._CLI_TipoST = cliTipoST
        Me._CLI_InicioActividadST = cliIniActST
        Me._CLI_DniST = cliDNIST
        Me._CLI_FechaNacimientoST = cliFecNacST
    End Sub

    'Propiedades SQL

    Public Property CLI_Codigo() As String
        Get
            Return _CLI_Codigo
        End Get
        Set(value As String)
            _CLI_Codigo = value
        End Set
    End Property

    Public Property GRC_Cliente() As String
        Get
            Return _CLI_Grupo
        End Get
        Set(value As String)
            _CLI_Grupo = value
        End Set
    End Property

    Public Property CLI_RazonSocial() As String
        Get
            Return _CLI_RazonSocial
        End Get
        Set(value As String)
            _CLI_RazonSocial = value
        End Set
    End Property

    Public Property CLI_RUC() As String
        Get
            Return _CLI_RUC
        End Get
        Set(value As String)
            _CLI_RUC = value
        End Set
    End Property

    Public Property CLI_LineaCredito() As String
        Get
            Return _CLI_Linea
        End Get
        Set(value As String)
            _CLI_Linea = value
        End Set
    End Property

    Public Property CLI_DNI() As String
        Get
            Return _CLI_DNI
        End Get
        Set(value As String)
            _CLI_DNI = value
        End Set
    End Property

    Public Property CLI_DireccionFiscal() As String
        Get
            Return _CLI_DireccionFiscal
        End Get
        Set(value As String)
            _CLI_DireccionFiscal = value
        End Set
    End Property

    Public Property VEN_Codigo() As String
        Get
            Return _CLI_Vendedor
        End Get
        Set(value As String)
            _CLI_Vendedor = value
        End Set
    End Property

    Public Property CLI_NomComercial() As String
        Get
            Return _CLI_NomComercial
        End Get
        Set(value As String)
            _CLI_NomComercial = value
        End Set
    End Property

    Public Property CLI_Telefono() As String
        Get
            Return _CLI_Telefono
        End Get
        Set(value As String)
            _CLI_Telefono = value
        End Set
    End Property

    Public Property CLI_Marca() As String
        Get
            Return _CLI_Marca
        End Get
        Set(value As String)
            _CLI_Marca = value
        End Set
    End Property

    Public Property CLI_Percepcion() As String
        Get
            Return _CLI_Percepcion
        End Get
        Set(value As String)
            _CLI_Percepcion = value
        End Set
    End Property

    Public Property CLI_Latitud() As String
        Get
            Return _CLI_Latitud
        End Get
        Set(value As String)
            _CLI_Latitud = value
        End Set
    End Property

    Public Property CLI_Longitud() As String
        Get
            Return _CLI_Longitud
        End Get
        Set(value As String)
            _CLI_Longitud = value
        End Set
    End Property

    Public Property DIS_Codigo() As String
        Get
            Return _CLI_Distrito
        End Get
        Set(value As String)
            _CLI_Distrito = value
        End Set
    End Property

    Public Property COB_Codigo() As String
        Get
            Return _CLI_Cobrador
        End Get
        Set(value As String)
            _CLI_Cobrador = value
        End Set
    End Property

    Public Property PRC_Codigo() As String
        Get
            Return _CLI_Procedencia
        End Get
        Set(value As String)
            _CLI_Procedencia = value
        End Set
    End Property

    Public Property CLC_Codigo() As String
        Get
            Return _CLI_Clase
        End Get
        Set(value As String)
            _CLI_Clase = value
        End Set
    End Property

    Public Property TIC_Codigo() As String
        Get
            Return _CLI_Tipo
        End Get
        Set(value As String)
            _CLI_Tipo = value
        End Set
    End Property

    Public Property ESC_Codigo() As String
        Get
            Return _CLI_Estado
        End Get
        Set(value As String)
            _CLI_Estado = value
        End Set
    End Property

    Public Property CAC_Codigo() As String
        Get
            Return _CLI_Categoria
        End Get
        Set(value As String)
            _CLI_Categoria = value
        End Set
    End Property

    Public Property CNV_Codigo() As String
        Get
            Return _CLI_CondicionVenta
        End Get
        Set(value As String)
            _CLI_CondicionVenta = value
        End Set
    End Property

    Public Property CLI_EmpRazonSocial() As String
        Get
            Return _CLI_EmpRazon
        End Get
        Set(value As String)
            _CLI_EmpRazon = value
        End Set
    End Property

    Public Property CLI_EmpTelefono() As String
        Get
            Return _CLI_EmpTelefono
        End Get
        Set(value As String)
            _CLI_EmpTelefono = value
        End Set
    End Property

    Public Property CLI_EmpFax() As String
        Get
            Return _CLI_EmpFax
        End Get
        Set(value As String)
            _CLI_EmpFax = value
        End Set
    End Property

    Public Property CLI_EmpEmail() As String
        Get
            Return _CLI_EmpEmail
        End Get
        Set(value As String)
            _CLI_EmpEmail = value
        End Set
    End Property

    Public Property CLI_MDocumentosVencidos() As String
        Get
            Return _CLI_MDocVencidos
        End Get
        Set(value As String)
            _CLI_MDocVencidos = value
        End Set
    End Property

    Public Property CLI_MLetrasAceptar() As String
        Get
            Return _CLI_MLetAceptar
        End Get
        Set(value As String)
            _CLI_MLetAceptar = value
        End Set
    End Property

    Public Property CLI_MLetrasProtestadas() As String
        Get
            Return _CLI_MLetProtestadas
        End Get
        Set(value As String)
            _CLI_MLetProtestadas = value
        End Set
    End Property

    Public Property CLI_MSinLineaCredito() As String
        Get
            Return _CLI_MSinLC
        End Get
        Set(value As String)
            _CLI_MSinLC = value
        End Set
    End Property

    Public Property CLI_MBloqueoManual() As String
        Get
            Return _CLI_MBloqManual
        End Get
        Set(value As String)
            _CLI_MBloqManual = value
        End Set
    End Property

    Public Property MBL_Codigo() As String
        Get
            Return _CLI_MotivoBloqueo
        End Get
        Set(value As String)
            _CLI_MotivoBloqueo = value
        End Set
    End Property

    Public Property CLI_Activo() As String
        Get
            Return _CLI_Activo
        End Get
        Set(value As String)
            _CLI_Activo = value
        End Set
    End Property

    '***************************************************************************
    'Propiedades XML

    Public Property CLI_RucSunat() As String
        Get
            Return _CLI_RucST
        End Get
        Set(value As String)
            _CLI_RucST = value
        End Set
    End Property

    Public Property CLI_RazonSocialSunat() As String
        Get
            Return _CLI_RazonSocialST
        End Get
        Set(value As String)
            _CLI_RazonSocialST = value
        End Set
    End Property

    Public Property CLI_RucAntiguoSunat() As String
        Get
            Return _CLI_RucAntiguoST
        End Get
        Set(value As String)
            _CLI_RucAntiguoST = value
        End Set
    End Property

    Public Property CLI_EstadoSunat() As String
        Get
            Return _CLI_EstadoST
        End Get
        Set(value As String)
            _CLI_EstadoST = value
        End Set
    End Property

    Public Property CLI_PatronSunat() As String
        Get
            Return _CLI_PatronST
        End Get
        Set(value As String)
            _CLI_PatronST = value
        End Set
    End Property

    Public Property CLI_AgenteRetencionSunat() As String
        Get
            Return _CLI_AgenteRetencionST
        End Get
        Set(value As String)
            _CLI_AgenteRetencionST = value
        End Set
    End Property

    Public Property CLI_NomComercialSunat() As String
        Get
            Return _CLI_NomComercialST
        End Get
        Set(value As String)
            _CLI_NomComercialST = value
        End Set
    End Property

    Public Property CLI_DireccionSunat() As String
        Get
            Return _CLI_DireccionST
        End Get
        Set(value As String)
            _CLI_DireccionST = value
        End Set
    End Property

    Public Property CLI_SituacionSunat() As String
        Get
            Return _CLI_SituacionST
        End Get
        Set(value As String)
            _CLI_SituacionST = value
        End Set
    End Property

    Public Property CLI_DependenciaSunat() As String
        Get
            Return _CLI_DependenciaST
        End Get
        Set(value As String)
            _CLI_DependenciaST = value
        End Set
    End Property

    Public Property CLI_TelefonoSunat() As String
        Get
            Return _CLI_TelefonoST
        End Get
        Set(value As String)
            _CLI_TelefonoST = value
        End Set
    End Property

    Public Property CLI_TipoSunat() As String
        Get
            Return _CLI_TipoST
        End Get
        Set(value As String)
            _CLI_TipoST = value
        End Set
    End Property

    Public Property CLI_InicioActividadSunat() As String
        Get
            Return _CLI_InicioActividadST
        End Get
        Set(value As String)
            _CLI_InicioActividadST = value
        End Set
    End Property

    Public Property CLI_ActividadEconomicaSunat() As String
        Get
            Return _CLI_ActividadEconomicaST
        End Get
        Set(value As String)
            _CLI_ActividadEconomicaST = value
        End Set
    End Property

    Public Property CLI_DniSunat() As String
        Get
            Return _CLI_DniST
        End Get
        Set(value As String)
            _CLI_DniST = value
        End Set
    End Property

    Public Property CLI_FechaNacimientoSunat() As String
        Get
            Return _CLI_FechaNacimientoST
        End Get
        Set(value As String)
            _CLI_FechaNacimientoST = value
        End Set
    End Property

End Class
